RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ASTER: CRUNOFF.SRCJSTD.BLI;1 (1) 
STANDARD ¢ommand' 


2, ADDRESSING _MODE ( EXTERNAL = LONG_RELATIVE 
NONE X TERNAL = LONG-RELATIV VES) 


Witte 


S 


oO 


SOOWONAUE WN" OVONOUS 


BEGIN 


EPA S ELSI SSIS TTT TET TTT TTT Trier Trice TiS TTT ict it titi it iiitiiiiiiiiiitT 
we 


iw COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
'* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


te hrche 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND corte 
IN ACCORDANCE WITH THE TER a OF SUCH bic ENSE AND WITH THE 
USION OF THe ABOVE Syd had NOTICE. THIS SOFTWARE OR ANY OTHER 
aly THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


t 
& 
® 
* 
os 
® 
® 
* 
® 
it TRANSFERRED” : 
& 
® 
® 
® 
® 
* 
* 
® 
® 
® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie oORPORaT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS Bl 


IBILIT 
:* SOFTWARE ON EQUIPMENT WHICH 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


SN 
PES SLESISIT CSET TTT T TTT TTT eee e Pee c iT T CTT TTT TTT iti i itt iiiiitt 
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i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Processes the .STANDARD command 

ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: August, 1978 
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STD Processes .STANDARD command 16-Sep-1984 :49:1 VAX-11 Bliss-32 V4.0-742 Page STH 
V04=000 Revision History 1e8eb=19be 13:08:15  DIeKSYMGHASTERSCRUNOFY “SacISTD.BLI;1 2% «25 v04 
; 41 40 1 XSBTTL ‘Revision History’ : 
: tg 4) 1! : 
; & é3 1 ! MODIFIED BY: : 
3 44 45 1! : 
> «45 44 1! 005 KFA00005 Ken Alden 5-Jul-1983 : 
; re ps? ! Fixed sca_justify so it works correctly with gca_autojust. ; 
: 48 604 1/ 004 KFA00004 Ken Alden 28-Mar-1983 ; 
3 > 9k : In SDXY the right margin is no longer reset(to gca_lwidth). ‘ 
; 34 6 50 1! 003 REMO0003 Ray Marshall 07-Mar-1983 
3 2g 0051 1! Global edit of all modules. Updated module names, idents, 
3 54 pos : } copyright dates. Changed require files to BLISS library. 
a 0054 1 i-- 
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TABLE OF CONTENTS: 


FORWARD Rag tis 
SDXY : NOVALUE; 


i INCLUDE FILES: 


1B 
EQU 

IF DSRPLUS XTHEN 
IBRARY 

EL 
18 
FI 


OWN STORAGE: 


EXTERNAL 
GCA : GCA_DEF 

IRA : FIXED Ss 

— NUAP 


: PHAN 
SCA: “SCA, DEF 


EXTERNAL LITERAL 
RNF INM; 


EXTERNAL ROUTINE 
REMNEG, 


REMMRG, 
SETCAS, 
TSTBLK; 


EQUATED SYMBOLS: 


RARY ‘NXPORT:XPORT'; 
IRE ‘REQ:RNODEF'; 


or REQ:DPLLIB’; 
RARY 'REQ:DSRLIB'; 


EXTERNAL REFERENCES: 


11 BLi 
SVMSMA 


iSseoctans 01:49:18 ae 


' XPORT Libra 
' RUNOFF vartant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


‘Error messages 


$-32_v4.0-74 
TERSCRUNOFF -SRCISTD.BLI:1' (35 
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STD Processes .STANDARD command -Sep-1984 01:49:1 VAX-11 Bliss-32 V4.0-742 Page 4 
v04-000 STD == 127808-1382 93:68:15 DISKSVMSMASTER: CRUNOFF.SRCJSTD.BLI;1 . (4) 
H 119 7 1 2SBTTL ‘STD <=" 
; 1} ! GLOBAL ROUTINE std (handler_code) : NOVALUE = 
; 118 40 1 !4¢ 
: Vie 2 : FUNCTIONAL DESCRIPTION: 
: 118 t7 ! See the ABSTRACT, above. 
; 118 43 | | FORMAL PARAMETERS: 
: } ‘} ! HANDLER_CODE is passed for conformance only. 
; é ‘3 i IMPLICIT INPUTS: 
; : ¢ i ! NUMPRM contains a number as processed by GETNUM. 
; ' $ 6 33 { IMPLICIT OUTPUTS: None 
: 128 O58$ | ROUTINE VALUE: 
; : 2 8 2$ : COMPLETION CODES: None 
: 131 0258 1 | SIDE EFFECTS: None 
9 . 59 1! 
i 184 Ete 
; 133 0264 BEGIN 
: 1 $ 6 64 tstblk (0); 'Force .LISTs and .NOTEs to end, and 
3 138 8 65 ‘issue error messages if applicable. 
3; ii 66 remmrg (); ‘Report unreported bad margins. 
3 129 8 of remneg (); 'Report unreported bad backdents. 
; 14@ $9 IF NOT .num_result THEN ! If no argument given by user, 
3 re 4 num_value = .gca_lwidth ! use current page width. 
> 145 es ELSE ! Otherwise: 
: 146 7 BEGIN 
3 1467 74 IF .mum_sign NEQ 0 THEN ! If a signed number, Try odjusting 
3 re o num value = .num_value + .gca_lwidth ! current page width. 
; 150 7 IF .num_length EQL O THEN ! Otherwise, if user said nothing, 
3 6S 7 num_value = “9ca lwidth; ! ! use current page width 
3 136 4 ? IF .mum_value LEQ 0 THER ! If negative number, 
: 154 1 4 erma (rnfinm, false); ' report error and 
3 13? Ht 4 fun _velue = .gca_lwidth; : retain current Line width. 
; 139 4 END; 
; 123 § gca_lwidth = .num_value; 
: 161 8 'Set Lines per page based on page width. 
; 188 IF .gca_twidth EQ, 60 THEN 
i 164 9 phan_llines = 58 
: 165 3 ELSE 
; 166 9 


8 
cesses .STANDARD command 1b-se -1984 249:1 VAX-11 Bliss-3 
pda 12r8R=}882 FEgk18 | Na eblgte? 


Se Ge Se Ge Ge Fe Ge ee Se Se Se ee ae 

— a = 4s Ls 4) ss 2 ss 

NNN NNN SIO OO 

ODONOULS WN -O0O@~ 
DOOODO0O VO 

SNE WN"OOODNOUS 
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4 4 seentwidth EQL 70 
phan_llines = 74; 


'Check for top of page condition so that footnotes 
!get taken care of ok. 


IF -phon Lines_tp GEQ .phan_llines THEN 
phan_fop_page = true; 


pdt_indent = 0; 
sdxy (); 'Fin 
ND; ‘End 


4.0-742 Pa 
FF.SRCISTD.BLI;1 


eTITLE STD epsseeses »STANDARD command 


«IDENT \v04-00 


+EXTRN GCA, IRA, NUMPRM 
-EXTRN PDT, PHAN, SCA 


ER RE e 
RN SETCAS, TSTBLK 
-PSECT $CODE$,NOWRT,2 


REMMR 


001C 00000 ENTRY STD, Save R2,R3,R4 
54 000000006 EF 9E 900¢ MOVAB  PHAN+4 
3 000000006 EF 9€ 0000 MOVAB GCA+146, R3 
52 000000006 EF i 9019 MOVAB NUMPRN+4, R 
000000006 &F 01 FB 90019 CALLS #1, TSTBLK 
000000006. EF 00 FB 00020 CALLS 40, EMMRG 
000000006 EF > 0 FB 00 7 CALLS ‘ : REMNE 
04 A ff 00 ; Ist NUMPRM+8 
62 00 Bs f 38 7 epee @GCA+140, NUMPRM+4 
lee oN at 
62 00 B D 4 MOVL @GCA+140, NUMPRM+4 
6 ) 46 2$ TSTL NUMPRM+4 
13 14 0004 BGTR 4 
7E D4 OOD4A CLRL =(SP) 
000000006 EF senses ¥ Pe 55 CALLS oo. ERMA 
3 00 B D 3$: MOVL acta+140, NUMPRM+4 
00 8 6 D D 4$: MOVL NUMPRM+4, BeEAel4e 
C 00 9 ° CMPL GCA+140, #6 
é BNEQ $ 
00 B4 A p : MOVL #58, @PHAN+4 
F B BRB 6$ 
00000046 =F 00 i pt 5$ CMPL @GCA+140, #70 
00 B4 4A BF 9A 0007 MOVZBL #74, @PHAN+4 
B4 08 A4 Di 7C 6$: CMPL PHAN+12, @PHAN+4 
04 19 00081 BLSS 7$ 


RNF INM 


Processes .STANDARD command 1b-se -1 VAX-11 Bliss-32 V4.0-742 Pa 6 
STD == Hat 7 93:68 18 DISKSVMSMAS STER: CRUNOFF . SRCISTD.BLI;1 hs (4) 
2 


FC AS 01 »bO O87 MOVL #1, PHAN 0 
000000006 FF D4 7$: CLRL. = aPOT } 
00000000V EF 00 FB 0 a8? ALLS #0, SDXY : 0305 


; Routine Size: 149 bytes, Routine Base: $CODE$ + 0000 


: 180 0307 1 


TD 
04-000 


18 


<” 


WN 9 ODNAUNE WN $9 OONAUNEWN (OOONOUS 


POPIPONONoNOPOMUNINPUNINININ 9 I 
| HOOCCOCCOCOCSCVOOOOOOOOOOMwD 


3; Routine Size: 


: 14 
: 315 
: 16 


K ,° 
Processes .STANDARD command Sep 4 VAX-11 Bliss-32 2 
SDXY == 19-8 Sep =1382 94:38 18 DISKSVMSMASTER: CRUNOFF.SRCISTD. BLI; "he 
4 1 ZSBTTL ‘'SDXY <==" 
: } GLOBAL ROUTINE sdxy : NOVALUE = 
11 1 !44 
\§ : FUNCTIONAL DESCRIPTION: 
14 Part of .STANDARD command common to .CHAPTER and .APPENDIX 
1 FORMAL PARAMETERS: None 
0 18 IMPLICIT INPUTS: None 
6 9 ! IMPLICIT OUTPUTS: None 
6 é 1 | ROUTINE VALUE: 
83 ? ! COMPLETION CODES: None 
0325 1 | SIDE EFFECTS: None 
03 § 1! 
03 1 !-- 
0328 #1 
0329 BEGIN 
Osay phan qpeging = -phan_cmd_paging; ‘Turn on paging if not /NOPAGING 
sca_T ue; 
Oee§ sca_justify = .gca_autojust or .sca duet tty: Ture on justification if the user didn't 
033 sca_crock = +9¢a_ aUtojust; say .NO AUTOJUSTIFY. 
0334 sca_spacing = 1; 
0335 sca_lm = 0; 
0336 
tt t4 setcas (.gca_case); ! Set case rules. 
0339 #1 END; ‘End of SDXY 


000c 00000 .ENTRY SDXY PRT R2,R3 
53 000000006 EF 9E 00002 MOVAB  GCA+4 
52 000000006 EF 9E 90009 MOVAB SCA+ 188, R2 
000000006 FF 000000006 ai DO 00010 MOVL BHANS 44 _BPuans4o 
00 8B 1 00 00018 MOVL 
FC OB 00 8 C8 OOO1F BISL2 TRS oa aSCA+i0 
08 8B 00 : o9 9 4 MOVL aGcA+l6, 3 Catt 
14 8B 1 D 9 MOVL so 
o¢ Bg D4 00020 CLRL Sstaii 
B3 DD 000 0 PUSHL a@GCA+128 
000000006 EF 01 FB 000 CALLS #1, SETCAS 
04 0003A RET 
59 bytes, Routine Base: S$CODE$ + 0095 
40 
41 ‘End of module 
342 0 Etopon 


S¢ 
Rx 


STD Processes .STANDARD command 1b-5e Sep-1984 VAX-11 Bliss-32 V4.0-742 
04-000 SDXY == ~35pr 1882 Fhib 1S pee nShAS FER chbngee “Sacastp.eu1:1° 3 
; PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 208 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Bs aS a ge ee =-- Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 
3; _$255$DUA28:CRUNOFF. SRCIDSRLIB.L32;1 1248 29 2 86 00:00.3 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:STD/OBJ=OBJ$:STD MSRC$:STD/UPDATE=(ENH$:STD) 
Size: 208 code + 0 data bytes 
Run Time 00:05.1 
Elepsed. fine: ot 16.5 
Lines/CPU Min: 4007 


Lexemes/CPU-Min: 18691 
penacy Used: 48 pages 
Compilation Complete 
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